home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / DevGallery / Turntable / Source / shocker13bert.dir / 00020.ls < prev    next >
Encoding:
Text File  |  1996-11-10  |  457 b   |  18 lines
  1. on exitFrame
  2.   global gBeatSnd
  3.   set curCast to the mouseCast
  4.   if the commandDown then
  5.     sound stop 2
  6.   else
  7.     if not soundBusy(2) then
  8.       puppetSound(2, the number of member gBeatSnd)
  9.     end if
  10.   end if
  11.   if (curCast >= the number of member "logo pict.00000") and (curCast <= the number of member "logo pict.00012") then
  12.     cursor([the number of member "hand", the number of member "hand mask"])
  13.   else
  14.     cursor(0)
  15.   end if
  16.   go(the frame)
  17. end
  18.